home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir35 / auror120.zip / AKBD.A < prev    next >
Text File  |  1994-01-14  |  18KB  |  427 lines
  1.  
  2. //┌────────────────────────────────────────────────────────────────────┐
  3. //│ The Aurora Editor v1.20  - Keyboard and Mouse definitions          │
  4. //│                                                                    │
  5. //│ Please keep a backup copy of this file.                            │
  6. //│                                                                    │
  7. //│ For a description of these keyboard and mouse definitions and how  │
  8. //│ to change them, select the "Key/Mouse/Trans Config" item from the  │
  9. //│ "Help" pull-down menu. Then then select "Defining the Keyboard"    │
  10. //│ from the submenu.                                                  │
  11. //│                                                                    │
  12. //│ If you have made any changes, save this file and select "Restore   │
  13. //│ Settings" from the "Set" pulldown menu. Exit and re-enter the      │
  14. //│ editor for your changes to take effect.                            │
  15. //│                                                                    │
  16. //│ Key prefixes used:                                                 │
  17. //│   "k_c_" =  <Ctrl> keys                                            │
  18. //│   "k_a_" =  <Alt> keys                                             │
  19. //│   "k_s_" =  <Shift> keys                                           │
  20. //│                                                                    │
  21. //└────────────────────────────────────────────────────────────────────┘
  22.  
  23.  
  24.   // edit and file manager windows
  25.   obj  edit-fmgr (
  26.  
  27.   fun
  28.  
  29.     // Controls
  30.     ≡            (wquit %p)                  ,// close window
  31.  
  32.     // Menu activation
  33.     k_esc        (menb)                      ,// to last menu bar item
  34.     k_f10        (menb)                      ,// to last menu bar item
  35.     k_a_f10      (men)                       ,// last pull-down menu
  36.     k_f1         (menh)                      ,// help pull-down
  37.     k_a_t        (men2)                      ,// to last toolbar control
  38.  
  39.     // Scroll
  40.     k_c_home     (cptop)                     ,// to page top
  41.     k_c_end      (cpbot)                     ,// to page bottom
  42.     k_c_pgup     (cmov @ 1)                  ,// to file top
  43.     k_c_pgdn     (cmov @ (qtexend))          ,// to file bottom
  44.     k_pad5       (ladj @ -1)                 ,// center cursor
  45.     k_c_f9       (ladj @ 1)                  ,// scroll to page top
  46.     k_c_f10      (ladj @ (qwinp @ %y1d))     ,// scroll to page bottom
  47.     k_c_up       (scry -1)                   ,// scroll up one line
  48.     k_c_down     (scry  1)                   ,// scroll down one line
  49.     k_c_-        (clast)                     ,// to last cursor position
  50.  
  51.     // File
  52.     k_c_n        (newf)                      ,// new edit window
  53.     k_a_e        (askopen)                   ,// open prompt
  54.     k_a_z        (openlast)                  ,// open last window
  55.     k_a_-        (flis)                      ,// file list
  56.     k_a_q        (quit %p)                   ,// close window
  57.     k_a_x        (gquit %p)                  ,// close all windows
  58.     k_s_f1       (qref)                      ,// quick reference
  59.  
  60.     // Window
  61.     k_a_w        (wlis)                      ,// window list
  62.     k_c_z        (wmax)                      ,// maximize window
  63.     k_c_a        (wnex)                      ,// next window
  64.     k_s_f3       (wtilev)                    ,// tile vertical
  65.     k_s_f4       (wtileh)                    ,// tile horizontal
  66.     k_s_f5       (wcasc)                     ,// cascade
  67.     k_c_k+q      (wquit %p)                  ,// close window
  68.  
  69.     k_a_ins      (winsizt -2 -1 -2 -1  2)    ,// move window northwest
  70.     k_a_del      (winsizt  2  1  2  1  2)    ,// move window southeast
  71.  
  72.     // Search
  73.     k_c_s        (askscan)                   ,// file scan prompt
  74.     k_c_b        (mloc @ %t)                 ,// find top of block
  75.     k_c_6        (bget)                      ,// to previous bookmark
  76.  
  77.     // Print
  78.     k_c_p        (print)                     ,// print
  79.     k_a_p        (print %m)                  ,// print block
  80.  
  81.     // Set
  82.     k_c_f1       (vfont %t)                  ,// toggle video mode
  83.     k_a_f2       (setres)                    ,// restore settings
  84.  
  85.     // Macro
  86.     k_c_v        (askmcmd)                   ,// macro command prompt
  87.     k_a_f9       (askoscmd %ck)              ,// DOS command prompt
  88.     k_a_f8       (askoscap)                  ,// DOS capture prompt
  89.     k_f9         (osshell)                   ,// exit to DOS
  90.  
  91.     // Other
  92.     k_a_f5       (opena %atrn)               ,// edit translation table
  93.  
  94.     // Mouse
  95.     m_r_down_client    (men)                 ,// last menu pull-down
  96.     m_l_dbclick_bkgnd  (wlis)                .// window list
  97.  
  98.   ).
  99.  
  100.  
  101.   // Prompts and Edit windows
  102.   obj  prompt (
  103.  
  104.   fun
  105.  
  106.     // Cursor
  107.     k_left       (left)                      ,// move cursor left
  108.     k_right      (right)                     ,// move cursor right
  109.     k_home       (chome)                     ,// to column one
  110.     k_end        (ceol)                      ,// to end of line
  111.  
  112.     // Scroll
  113.     k_f7         (scrx (- (xpagsiz)))        ,// page left
  114.     k_f8         (scrx (xpagsiz))            ,// page right
  115.  
  116.     // Editing
  117.     k_ins        (cmtog)                     ,// toggle insert mode
  118.     k_del        (delch)                     ,// delete character
  119.     k_backspace  (baksp)                     ,// delete left character
  120.     k_f6         (leol)                      ,// erase to end of line
  121.     k_a_f6       (leol %l)                   ,// erase to beginning of line
  122.     k_c_t        (wrddel CSet)               ,// delete right word
  123.     k_c_[        (lit)                       ,// enter literal character
  124.     k_a_=        (wasc)                      ,// display ascii chart
  125.  
  126.     // Block
  127.     k_a_a        (mset %s)                   ,// mark character
  128.     k_a_b        (mset %r)                   ,// mark column
  129.     k_a_1        (wrdmrk CSet)               ,// mark word
  130.     k_a_2        (meol)                      ,// mark to end of line
  131.     k_a_u        (mdes)                      ,// unmark
  132.     k_a_c        (mcpyp. ceol)               ,// copy block to prompt
  133.  
  134.     // Prompt history
  135.     k_up         (wrtv %p)                   ,// retrieve prev prompt
  136.     k_down       (wrtv %n)                   ,// retrieve next prompt
  137.  
  138.     // Exit
  139.     k_esc        (quit)                      ,// quit prompt
  140.     k_a_q        (quit)                      ,// quit prompt
  141.  
  142.     // non-function keys
  143.     k_chr        (txt (qarg 2))              ,// typeable keys
  144.  
  145.  
  146.     // Mouse
  147.  
  148.     // mouse left button down                 // begin mouse mark
  149.     m_l_down_client (
  150.       arg  w x y r.
  151.       moubegmrk  x y MouMrkS.
  152.     ),
  153.  
  154.     // mouse move
  155.     m_move_client (                           // extend mouse mark
  156.       arg  x y r.
  157.       moumovmrk  x y.
  158.     ),
  159.  
  160.     // mouse left button up
  161.     m_l_up_client (                           // end mouse mark
  162.       arg  x y.
  163.       mouendmrk  x y
  164.     ).
  165.  
  166.   ).
  167.  
  168.  
  169.   // edit windows only
  170.   obj  edit (
  171.  
  172.   fun
  173.  
  174.     // tool bar
  175.     <≡>            (wtool)                   ,// close tool bar
  176.     <?>            (hlp 18 6 %f)             ,// tool bar help
  177.     <*>            (fmgr)                    ,// display file manager
  178.     </>            (wcopy)                   ,// copy window
  179.     <─>            (wspl %h)                 ,// split window horz
  180.     <|>            (wspl %v)                 ,// split window vert
  181.     <o>            (askopen)                 ,// open prompt
  182.     <s>            (save)                    ,// save file
  183.     <F>            (askfind)                 ,// find prompt
  184.     <f>            (finl)                    ,// do last find/replace
  185.     <r>            (mrfl %b)                 ,// reflow block
  186.     <«>            (undo)                    ,// undo last change
  187.     <»>            (undo %r)                 ,// redo last change
  188.     <>>            (mfld %f)                 ,// fold block
  189.     <<>            (lfld %u)                 ,// unfold line
  190.  
  191.     // Cursor
  192.     k_up           (up)                      ,// move cursor up
  193.     k_down         (down)                    ,// move cursor down
  194.     k_enter        (enteredit)               ,// enter key
  195.     k_tab          (ctab)                    ,// tab right
  196.     k_s_tab        (ctab %l)                 ,// tab left
  197.     k_c_left       (cwrd %l CSet)            ,// find left word
  198.     k_c_right      (cwrd %r CSet)            ,// find right word
  199.  
  200.     // File
  201.     k_a_i          (askopenins)              ,// open and insert prompt
  202.     k_c_]          (wrdlod CSetB)            ,// open file at cursor
  203.     k_a_n          (askname)                 ,// rename prompt
  204.     k_f3           (save)                    ,// save file
  205.     k_c_ins        (fpre)                    ,// next file
  206.     k_c_del        (fnex)                    ,// prev file
  207.     k_f4           (fmgr)                    ,// display file manager
  208.     k_a_q          (fquit %p)                ,// close file/window
  209.     k_c_x          (fquit %f)                ,// save & close file/window
  210.  
  211.     // Window
  212.     k_c_c          (wcopy)                   ,// copy window
  213.     k_a_h          (wspl %h)                 ,// split window horizontal
  214.     k_a_v          (wspl %v)                 ,// split window vertical
  215.     k_c_f8         (wtool)                   ,// display tool bar
  216.     k_c_f7         (wsty)                    ,// change window style
  217.  
  218.     // Block
  219.     k_a_l          (mset %l)                 ,// mark line
  220.     k_a_3          (mpgh %tb)                ,// mark paragraph
  221.     k_a_c          (mcpy)                    ,// copy block
  222.     k_a_o          (mmov %o)                 ,// overlay block
  223.     k_a_m          (mmov)                    ,// move block
  224.     k_c_m          (mmov %of)                ,// move block over
  225.     k_a_d          (mdel)                    ,// delete block
  226.     k_s_f7         (mshf -1)                 ,// unindent block
  227.     k_s_f8         (mshf 1)                  ,// indent block
  228.     k_c_k+f        (askmfill)                ,// fill block prompt
  229.     k_a_r          (mrfl %b)                 ,// reflow block
  230.     k_a_y          (mrfl %br)                ,// reflow & right just block
  231.     k_c_k+s        (msave)                   ,// save block
  232.     k_c_k+o        (msrt)                    ,// sort block
  233.     k_c_k+u        (mcase %u)                ,// change block to uppercase
  234.     k_c_k+c        (mjust %c)                ,// center block
  235.  
  236.     // Search
  237.     k_f5           (askfind)                 ,// find prompt
  238.     k_c_f          (askfind)                 ,// find prompt
  239.     k_c_g          (askrpl)                  ,// replace prompt
  240.     k_c_l          (finl)                    ,// do last find/replace
  241.     k_c_2          (bset)                    ,// set quick bookmark
  242.     k_c_j          (askglin)                 ,// go to line prompt
  243.     k_a_7          (cfld)                    ,// go to next fold
  244.     k_a_f3         (finm)                    ,// find matching char
  245.     k_a_f7         (finc)                    ,// go to compiler error
  246.  
  247.     // Fold
  248.     k_a_8          (lfld)                    ,// fold next line
  249.     k_a_9          (lfld %s)                 ,// unfold next line
  250.     k_a_0          (mflda %ua)               ,// unfold all
  251.     k_a_f          (mfld %f)                 ,// fold block
  252.     k_a_g          (lfld %u)                 ,// unfold line
  253.  
  254.     // Edit
  255.     k_c_u          (undo)                    ,// undo last change
  256.     k_c_y          (undo %r)                 ,// redo last change
  257.     k_c_enter      (lins %a)                 ,// insert line
  258.     k_c_backspace  (ldel)                    ,// delete line
  259.     k_a_s          (lspl)                    ,// split line
  260.     k_a_j          (ljoin)                   ,// join line
  261.     k_a_4          (ldup)                    ,// duplicate line
  262.     k_a_5          (lswp)                    ,// swap line
  263.     k_a_6          (lcen)                    ,// center line
  264.     k_a_f1         (lcom)                    ,// comment/uncomment line
  265.     k_c_k+t        (stamp)                   ,// date/time stamp
  266.     k_c_k+x        (exptab TabWidth)         ,// expand tabs
  267.  
  268.     // Clipboard
  269.     k_grey-        (clpcpy %d)               ,// cut
  270.     k_c_grey-      (clpcpy %ad)              ,// cut append
  271.     k_grey+        (clpcpy)                  ,// copy
  272.     k_c_grey+      (clpcpy %a)               ,// copy append
  273.     k_grey*        (clppst)                  ,// paste
  274.     k_c_grey*      (clppst %o)               ,// paste over
  275.     k_c_grey/      (clpclr)                  ,// clear clipboard
  276.  
  277.     // Set
  278.     k_c_w          (wmwrap)                  ,// word wrap toggle
  279.     k_c_d          (wmdraw)                  ,// line draw toggle
  280.     k_a_f4         (wmtran)                  ,// text translate toggle
  281.  
  282.     // non-function keys
  283.     k_chr          (txt (qarg 2))            ,// typeable keys
  284.  
  285.     // Other
  286.     k_c_q+q        (askkrep)                 ,// repeat last key
  287.  
  288.     // invoke a spell checker from within an edit window <F11>
  289.     // (replace "ss" with your favorite spell checker)
  290.     k_f11  (
  291.       save.                                   // save the current file
  292.       os (cat "ss " (qwinttl)) %ck.           // call spellchecker
  293.       refresh.                                // refresh current file
  294.     ),
  295.  
  296.     // Mouse
  297.  
  298.     // double-click in client area
  299.     m_l_dbclick_client (                      // begin mouse mark (dbl-click)
  300.       arg  w x y r.
  301.       moubegmrk  x y MouMrkD %d.
  302.     ),
  303.  
  304.     // right button down
  305.     m_r_down_border (                         // display file manager
  306.       arg  w x y r.
  307.       if (eq r 11 12) (fmgr).
  308.     ).
  309.   ).
  310.  
  311.  
  312.   // file manager windows only
  313.   obj  fmgr (
  314.  
  315.   fun
  316.  
  317.     // Menu activation
  318.     k_tab          (men2)                    ,// to drive menu bar
  319.  
  320.     // Cursor
  321.     k_left         (scrx -1)                 ,// scroll left one column
  322.     k_right        (scrx  1)                 ,// scroll right one column
  323.     k_home         (cmov 1)                  ,// scroll to column one
  324.     k_up           (up)                      ,// move cursor up
  325.     k_down         (down)                    ,// move cursor down
  326.  
  327.     // File Manager commands (single character command codes)
  328.     k_chr (
  329.       arg  k c.
  330.       = %c (chc c %l).
  331.       if (eq c %o %e) (fopen c) (             // open file/directory
  332.       if (eq c %z)  (fopen %ze) (             // open maximized
  333.       if (eq c %b)  (fopen %b) (              // open binary file
  334.       if (eq c %y)  (fopen %be) (             // open binary in one window
  335.       if (eq c %k)  (fopenk) (                // open key macro file
  336.       if (eq c %m)  (fmov) (                  // move file
  337.       if (eq c %c)  (fcpy) (                  // copy file
  338.       if (eq c %d)  (fdel) (                  // delete file
  339.       if (eq c %n)  (fren) (                  // rename file
  340.       if (eq c %r)  (frun %c) (               // run program/batch file
  341.       if (eq c %p)  (fprt) (                  // print file
  342.       if (eq c %a)  (fatt) (                  // change file attributes
  343.       if (eq c %t)  (ftch) (                  // touch file
  344.       if (eq c " ") (fmtog) (                 // mark/unmark file
  345.  
  346.       // spell checker (replace "ss" with your favorite spell checker)
  347.       if (eq c %s) (
  348.         os (cat "ss " (dn)) %ck.
  349.       )(
  350.  
  351.       // image viewer (replace "picem" with your favorite viewer)
  352.       if (eq c %i) (
  353.         os (cat "picem " (dn)) %c.
  354.       )(
  355.  
  356.       // unarchive .ZIP or .LZH files
  357.       if (eq c %u)  (
  358.         = %f (dn).
  359.         os (cat (if (fin f ".lzh" %i) "lha e " "pkunzip ") f) %ck.
  360.         refresh.
  361.       )(
  362.  
  363.       // view .ZIP or .LZH archives
  364.       if (eq c %v) (
  365.         = %f (dn).
  366.         oscap (cat (if (fin f ".lzh" %i) "lha v " "pkunzip -v ") f).
  367.       )(
  368.  
  369.       )))))))))))))))))).
  370.     ),
  371.  
  372.     // File
  373.     k_c_backspace  (fpar)                    ,// parent directory
  374.  
  375.     // Mark
  376.     k_a_m          (fmrk)                    ,// mark all files
  377.     k_a_u          (fumrk)                   ,// unmark all
  378.  
  379.     // Command
  380.     k_enter        (fopen %1)                ,// open file (one only)
  381.     k_c_enter      (fopen %q)                ,// open file (close fmgr)
  382.     k_del          (fdel)                    ,// delete file
  383.  
  384.     // Sort
  385.     k_a_n          (fsrt %n)                 ,// sort by name
  386.     k_a_s          (fsrt %s)                 ,// sort by size
  387.     k_a_d          (fsrt %d)                 ,// sort by date/time
  388.     k_a_o          (fsrt %o)                 ,// no sort (DOS order)
  389.  
  390.     // Print
  391.     k_c_p          (print %d)                ,// print fmgr contents
  392.  
  393.  
  394.     // Mouse
  395.     m_l_dbclick_client (                      // double-click to open
  396.       fopen %1
  397.     ).
  398.  
  399.   ).
  400.  
  401.  
  402.   // movable/sizable windows
  403.   obj  win (
  404.  
  405.   fun
  406.     k_c_f5         (wkey)                    ,// move/size windows
  407.     k_c_f6         (wkey %p)                 .// pan video background
  408.  
  409.   ).
  410.  
  411.  
  412.   // all windows
  413.   obj  mon (
  414.  
  415.   fun
  416.     k_c_r          (krec)                    ,// record key macro toggle
  417.     k_c_e          (kplay)                   ,// play scrap key macro
  418.     k_c_i          (kdel)                    ,// erase scrap key macro
  419.  
  420.     // define compound key prefixes
  421.     k_c_k          (keyx %k_c_k)             ,// define <Ctrl-K> prefix
  422.     k_c_o          (keyx %k_c_o)             ,// define <Ctrl-O> prefix
  423.     k_c_q          (keyx %k_c_q)             .// define <Ctrl-Q> prefix
  424.  
  425.   ).
  426.  
  427.